home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / grafica / ghostscript / 5.10 / pdf_font.ps < prev    next >
Text File  |  1997-12-28  |  15KB  |  456 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_font.ps
  19. % PDF font operations.
  20.  
  21. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  22. .currentglobal true .setglobal
  23. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  24. GS_PDF_ProcSet begin
  25. pdfdict begin
  26.  
  27. % We cache the PostScript font in an additional element of the
  28. % font resource dictionary, called PSFont.
  29.  
  30. % ---------------- Encodings ---------------- %
  31.  
  32. % Apply a list of differences to an Encoding.
  33. /updateencoding        % <encoding> <differences> updateencoding <enc'>
  34.  { exch dup length array copy
  35.    exch dup 0 get exch dup length 1 sub
  36.    1 exch getinterval
  37.     { dup type /nametype ne
  38.        { exch pop }
  39.        { 3 copy put pop 1 add }
  40.       ifelse
  41.     }
  42.    forall pop
  43.  } bdef
  44.  
  45. % Get the Encoding for a font.
  46. /getencoding        % <base-encoding> <font-resource> getencoding <enc>
  47.  { /Encoding knownoget
  48.     { dup type /nametype eq
  49.        { exch pop findencoding
  50.        }
  51.        { dup /BaseEncoding knownoget
  52.       { findencoding 3 -1 roll pop exch
  53.       }
  54.      if
  55.      /Differences knownoget { updateencoding } if
  56.        }
  57.       ifelse
  58.     }
  59.    if
  60.  } bdef
  61.  
  62. % Adjust a font according to the Encoding and Widths in the font resource.
  63. /adjustfont        % <font-resource> <font> adjustfont
  64.             %   <font'> <changed>
  65.  { getfontencoding getfontmetrics 4 -1 roll pop .updatefont
  66.     { dup /FontName 2 copy get genfontname dup 5 1 roll put definefont }
  67.    if
  68.  } bind def
  69.  
  70. % Get the (possibly modified) encoding of a font.
  71. /getfontencoding    % <font-resource> <font> getfontencoding
  72.             %   <font-resource> <font> <encoding>
  73.  { dup /Encoding get 2 index getencoding
  74.  } bdef
  75.  
  76. % Get the metrics of a font, if specified.
  77. /getfontmetrics        % <font-resource> <font> <encoding> getfontmetrics
  78.             %   <font-resource> <font> <encoding> <Metrics|null>
  79.  { 2 index /Widths known
  80.     { 2 dict begin
  81.       /Encoding exch def
  82.       /Metrics Encoding length dict def
  83.       exch
  84.         % Stack: font font-res
  85.         % Note that widths are always based on a 1000-unit
  86.         % character space, but the FontMatrix may specify
  87.         % some other scale factor.  Compensate for this here,
  88.         % by scaling the Widths if necessary.
  89.       0.001 2 index /FontMatrix get 0 get div
  90.         % Stack: font font-res mscale
  91.       1 index /FirstChar oget dup 1 4 index /LastChar oget
  92.        {    % Stack: font font-res mscale first-char index
  93.      Encoding 1 index get
  94.      4 index /Widths oget 2 index 4 index sub get
  95.          % Stack: font font-res mscale first-char index charname width
  96.      4 index mul
  97.         % There is a hack here to deal with encodings where the
  98.         % same character appears more than once, because the Metrics
  99.         % dictionary works by character name, not by character code.
  100.         % Because of this, we can't deal with Width vectors that
  101.         % specify different widths for the same character name
  102.         % appearing multiple times in the Encoding.
  103.      Metrics 2 index .knownget not { 0 } if 0 ne
  104.       { pop pop }
  105.       { Metrics 3 1 roll put }
  106.      ifelse pop
  107.        }
  108.       for pop
  109.         % Now fill in the MissingWidth for any encoded characters
  110.         % that aren't in Metrics already.
  111.         % Stack: font font-res mscale
  112.       Metrics 2 index /FontDescriptor oget
  113.       /MissingWidth knownoget { 2 index mul } { 0 } ifelse exch
  114.       Encoding
  115.        {    % Stack: font font-res mscale missing-width metrics charname
  116.      2 copy known not { 2 copy 4 index put } if pop
  117.        }
  118.       forall pop pop pop
  119.       exch Encoding Metrics end
  120.     }
  121.     { null
  122.     }
  123.    ifelse
  124.  } bdef
  125.  
  126. % ---------------- Descriptors ---------------- %
  127.  
  128. % Partial descriptors for the 14 built-in fonts.
  129. /standardfontdescriptors mark
  130.   /Courier mark /Flags 16#23 .dicttomark
  131.   /Courier-Oblique 1 index
  132.   /Courier-Bold 1 index
  133.   /Courier-BoldOblique 1 index
  134.   /Helvetica mark /Flags 16#20 .dicttomark
  135.   /Helvetica-Oblique 1 index
  136.   /Helvetica-Bold 1 index
  137.   /Helvetica-BoldOblique 1 index
  138.   /Times-Roman mark /Flags 16#22 .dicttomark
  139.   /Times-Bold 1 index
  140.   /Times-Italic mark /Flags 16#62 .dicttomark
  141.   /Times-BoldItalic 1 index
  142.   /Symbol mark /Flags 16#4 .dicttomark
  143.   /ZapfDingbats 1 index
  144. .dicttomark readonly def
  145.  
  146. % ---------------- Utilities ---------------- %
  147.  
  148. % Fabricate a font name by adding %'s on the end.
  149. /genfontname        % <name> genfontname <name>
  150.  { dup length string cvs
  151.     { (%) concatstrings
  152.       dup cvn FontDirectory exch known not { cvn exit } if
  153.     }
  154.    loop
  155.  } bdef
  156.  
  157. % Find a font, and adjust its encoding if necessary.
  158. /pdffindfont        % <font-resource> <fontname> pdffindfont <font>
  159.  { findfont adjustfont
  160.  } bdef
  161.  
  162. % ---------------- Type 1 fonts ---------------- %
  163.  
  164. /buildType1        % <Type1-font-resource> buildType1 <font>
  165.  { dup /BaseFont get pdffindfont
  166.  } bdef
  167.  
  168. % The state dictionary for the embedded Type 1 font reading procedure
  169. % has the following keys and values:
  170. %    data - stream (filter)
  171. %    buffer, buffer2 - string
  172. %    leftstr - string containing (non-negative) integer
  173. %    sectionstr - string containing a character 0 .. 2
  174. %    stream - (stream) dictionary
  175. %    proc - procedure of the form {-dict- type1read}
  176. % When the procedure is executing, this dictionary is current.
  177. % leftstr and sectionstr are strings so that we can change their values
  178. % reliably in case the font executes a restore!
  179.  
  180. % Read an embedded Type 1 font.
  181. /readfontfilter        % <proc> readfontfilter <filter>
  182.  {    % We make this a separate procedure so that we can
  183.     % redefine it when we're writing PostScript.
  184.    0 () /SubFileDecode filter
  185.  } bdef
  186. /readtype1dict 5 dict dup begin
  187.   /definefont {
  188.     dup wcheck not { dup length dict copy } if
  189.     exch pop savedFontName exch
  190.     //systemdict /definefont get exec
  191.   } bdef
  192.   /eexec {
  193.     55665 /eexecDecode filter
  194.     //systemdict begin readtype1dictcopy begin cvx stopped
  195.     currentdict readtype1dictcopy eq { end } if
  196.     currentdict //systemdict eq { end } if
  197.      { stop } if
  198.   } bdef
  199. end readonly def
  200. /readtype1        % <font-resource> <stream-dict> readtype1 <font>
  201.  {        % Read the definition, using a procedure-based filter
  202.         % that turns binary/hex conversion on and off
  203.         % at the right times.
  204.    PDFfile fileposition 3 1 roll
  205.    7 dict begin
  206.      /leftstr (          ) 10 string copy def
  207.        dup /Length1 oget leftstr cvs pop
  208.      /sectionstr <00> 1 string copy def
  209.      /stream 1 index def
  210.      true resolvestream /data exch def
  211.      /buffer 1000 string def        % arbitrary
  212.      /buffer2 buffer length 2.1 div cvi 1 sub string def
  213.    currentdict end
  214.    /type1read cvx 2 array astore cvx dup 0 get /proc 2 index put
  215.    readfontfilter
  216.         % Some buggy embedded fonts leave extra junk on the stack,
  217.         % so we have to make a closure that records the stack depth
  218.         % in a fail-safe way.
  219.    //systemdict begin
  220.         % Rebind definefont so we can substitute the FontName
  221.         % from the descriptor.
  222.    //readtype1dict dup length 2 add dict copy begin
  223.    1 index /FontDescriptor oget /FontName oget /savedFontName exch def
  224.    /readtype1dictcopy currentdict def
  225.     { run } aload pop count 1 sub 2 packedarray cvx exec
  226.    end end
  227.    count exch sub { pop } repeat
  228.    PDFfile 3 -1 roll setfileposition
  229.    /FontDescriptor oget /FontName oget findfont
  230.  } bdef
  231.  
  232. % Execute the appropriate reading procedure.
  233. /type1read        % <dict> type1read <string>
  234.  { begin leftstr cvi
  235.     { type1read1 type1read2 type1read3 } sectionstr 0 get get exec
  236.    (          ) leftstr copy cvs pop end
  237.  } bdef
  238.  
  239. % Read the next block of data into the buffer.
  240. /type1readdata        % <left> <buffer> type1readdata <substring> <left'>
  241.  { 0 2 index 2 index length min getinterval
  242.         % Adobe requires readstring to signal an error if given
  243.         % an empty string.  Work around this nonsense here.
  244.    dup length 0 ne { data exch readstring pop } if
  245.    dup length 3 -1 roll exch sub
  246.    DEBUG
  247.     { dup =only ( read ) print
  248.       1 index length =only (: ) print
  249.       1 index == flush
  250.     } if
  251.  } bdef
  252.  
  253. % Read the next block of the initial text portion.
  254. /type1read1        % <left> type1read1 <string> <left'>
  255.  { DEBUG { (read1 ) print } if
  256.    dup 0 eq
  257.     { pop sectionstr 0 1 put
  258.       stream /Length2 oget type1read2
  259.     }
  260.     { buffer type1readdata
  261.     }
  262.    ifelse
  263.  } bdef
  264.  
  265. % Read the next block of the encrypted portion.
  266. /type1trailer
  267. (0000000000000000000000000000000000000000000000000000000000000000\n\
  268. 0000000000000000000000000000000000000000000000000000000000000000\n\
  269. 0000000000000000000000000000000000000000000000000000000000000000\n\
  270. 0000000000000000000000000000000000000000000000000000000000000000\n\
  271. 0000000000000000000000000000000000000000000000000000000000000000\n\
  272. 0000000000000000000000000000000000000000000000000000000000000000\n\
  273. 0000000000000000000000000000000000000000000000000000000000000000\n\
  274. 0000000000000000000000000000000000000000000000000000000000000000\n\
  275. cleartomark\n)
  276. readonly def
  277. /type1read2        % <left> type1read2 <string> <left'>
  278.  { DEBUG { (read2 ) print } if
  279.    dup 0 eq
  280.     { pop sectionstr 0 2 put
  281.       stream /Length3 oget
  282.       dup 0 eq
  283.        { DEBUG { (trailer ) print } if
  284.      type1trailer exch
  285.        }
  286.        { type1read3
  287.        }
  288.       ifelse
  289.     }
  290.     { buffer2 type1readdata exch
  291.       buffer /ASCIIHexEncode filter dup 3 -1 roll writestring closefile
  292.       buffer (>) search pop exch pop exch pop exch
  293.     }
  294.    ifelse
  295.  } bdef
  296.  
  297. % Read the next block of the final text portion.
  298. % When finished, this procedure returns an empty string.
  299. /type1read3        % <left> type1read3 <string> <left'>
  300.  { DEBUG { (read3 ) print } if
  301.    buffer type1readdata
  302.  } bdef
  303.  
  304. % ---------------- Type 3 fonts ---------------- %
  305.  
  306. /.notdefEncoding 256 { /.notdef } repeat 256 packedarray def
  307.  
  308. /buildType3        % <Type3-font-resource> buildType3 <font>
  309.   { 8 dict begin
  310.     /FontType 3 def
  311.     /FontBBox 1 index /FontBBox get cvx def
  312.     /FontMatrix 1 index /FontMatrix oget def
  313.     /CharProcs 1 index /CharProcs oget def
  314.     /FontName 1 index /Name get genfontname def
  315.     /Encoding .notdefEncoding 2 index getencoding def
  316.     /BuildGlyph
  317.      { exch /CharProcs get exch oget
  318.        PDFfile fileposition exch
  319.        false resolvestream
  320.         % Don't let setgcolor set the color inside the BuildGlyph
  321.         % procedure, because this causes an /undefined error.
  322.        q_ null /FillColor gput null /StrokeColor gput
  323.        pdfopdict .pdfrun
  324.        Q_
  325.        PDFfile exch setfileposition
  326.      } bdef
  327.     FontName currentdict end definefont exch pop
  328.   } bdef
  329.  
  330. % ---------------- TrueType fonts ---------------- %
  331.  
  332. /TTfonts mark
  333.   /Arial /Helvetica
  334.   /Arial,Italic /Helvetica-Oblique
  335.   /Arial,Bold /Helvetica-Bold
  336.   /Arial,BoldItalic /Helvetica-BoldOblique
  337.   /TimesNewRoman /Times-Roman
  338.   /TimesNewRoman,Italic /Times-Italic
  339.   /TimesNewRoman,Bold /Times-Bold
  340.   /TimesNewRoman,BoldItalic /Times-BoldItalic
  341. .dicttomark readonly def
  342.  
  343. /buildTrueType        % <TrueType-font-resource> buildTrueType <font>
  344.  { dup /BaseFont get
  345.    dup TTfonts exch .knownget { exch pop } if pdffindfont
  346.  } bdef
  347.  
  348. % Read an embedded TrueType font.
  349. /readtruetype        % <font-resource> <stream-dict> readtruetype <font>
  350.  {        % This is much simpler than readtype1, because we don't
  351.         % have to deal with the tripartite .PFB format.
  352.    PDFfile fileposition 3 1 roll
  353.    true resolvestream readfontfilter .loadttfont
  354.    dup /FontName get exch definefont exch pop
  355.    PDFfile 3 -1 roll setfileposition
  356.  } bdef
  357.  
  358. % ---------------- Type 0 fonts ---------------- %
  359. %**************** NOT ACTUALLY SUPPORTED YET
  360.  
  361. /buildType0        % <Type0-font-resource> buildType0 <font>
  362. { 10 dict begin
  363.   /FontType 0 def
  364.   /FontMatrix 1 index /FontMatrix knownoget not { matrix } if def
  365.   /FontName 1 index /BaseFont get def
  366.   /FMapType 9 def
  367.   /Encoding [ 0 1 4 index /DescendantFonts oget length 1 sub { } for ] def
  368.   /FDepVector [ 2 index /DescendantFonts oget { exec } forall ] def
  369.   /CMap 1 index /Encoding oget
  370.     dup type /nametype eq
  371.      { dup Page /CMap rget
  372.         { exch pop resolvestream } { /undefined signalerror } ifelse
  373.      }
  374.      { resolvestream
  375.      }
  376.     ifelse
  377.   % FontName currentdict end definefont exch pop
  378.   end pop /Times-Roman findfont
  379. } bdef
  380.  
  381. % ---------------- Other embedded fonts ---------------- %
  382.  
  383. /fontloadprocs mark
  384.   /Type1C /readType1C cvx
  385. .dicttomark readonly def
  386.  
  387. % Read an embedded compressed font.
  388. /readType1C        % <font-resource> <stream-dict> readType1C <font>
  389.  { PDFfile fileposition 3 1 roll
  390.    dup true resolvestream dup readfontfilter
  391.         % Stack: pos resource streamdict stream filter
  392.    3 index /FontDescriptor oget /FontName oget
  393.    1 index FRD
  394.    closefile closefile pop
  395.    PDFfile 3 -1 roll setfileposition
  396.    /FontDescriptor oget /FontName oget findfont
  397.  } bdef
  398.  
  399. % ---------------- Font lookup ---------------- %
  400.  
  401. /fonttypeprocs mark        % <font-resource> -proc- <font>
  402.   /Type0 /buildType0 cvx
  403.   /Type1 /buildType1 cvx
  404.   /MMType1 1 index
  405.   /Type3 /buildType3 cvx
  406.   /TrueType /buildTrueType cvx
  407. .dicttomark readonly def
  408.  
  409. /resourcefont            % <font-resource> resourcefont <font>
  410.  { dup /PSFont .knownget
  411.     { /FID .knownget { type /fonttype eq } { false } ifelse }
  412.     { false }
  413.    ifelse
  414.     { /PSFont get
  415.     }
  416.     { dup dup /FontDescriptor knownoget
  417.        {    % Stack: font-res font-res font-desc
  418.      dup /FontFile knownoget
  419.       { exch pop 1 index 3 1 roll readtype1 adjustfont true }
  420.       { dup /FontFile2 knownoget
  421.          { exch pop 1 index 3 1 roll readtruetype adjustfont true }
  422.          { /FontFile3 knownoget
  423.         { 1 index exch dup /Subtype get fontloadprocs exch get exec adjustfont true }
  424.         { false }
  425.            ifelse
  426.          }
  427.         ifelse
  428.       }
  429.      ifelse
  430.        }
  431.        { false }
  432.       ifelse
  433.         % Stack: font-res font-res false
  434.         %  -or-: font-res font true
  435.       not
  436.        { dup /Subtype get fonttypeprocs exch get exec }
  437.       if
  438.       2 copy /PSFont exch put
  439.       exch pop
  440.     }
  441.    ifelse
  442.  } bdef
  443.  
  444. drawopdict begin
  445.   /d0 /setcharwidth load def
  446.   /d1 /setcachedevice load def
  447.   /Tf
  448.    { exch Page /Resources oget /Font oget exch oget resourcefont
  449.      exch Tf
  450.    } bdef
  451. end
  452.  
  453. end            % pdfdict
  454. end            % GS_PDF_ProcSet
  455. .setglobal
  456.